RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE®®10**PANPA 
PPPPPPPP AAAAAA —sNN NN PPPPPPPP AAAAAA 3 
PPPPPPPP AAAAAA NN NN PPPPPPPP AAAAAA ; 
pp PP AA AA NN NN PP PP AA | : 
PE PE AA NN NN PP PP AA AA ; 
ep PP AA AA NNNN NN PP PP AA AA | ; 
PP PP AA AA NNNN NN PP PP AA AA | : 
PPPPPPPP = AA AA NN NN NN PPPPPPPP AA AA : 
PPPPPPPP = AA AA NN NN NN PPPPPPPP AA AA | : 
ee AAAAAAAAAA NN = NNNN PP AAAAAAAAAA | 3 
PE AAAAAAAAAA NN = NNNN PP AAAAAAAAAA | : 
PP AA AA NN NN PP AA AA we | : 
PP AA AA NN NN PP AA AA ; | ; 
PP AA AA NN NN PP AA AA a | : 
oh AA AA NN NN PP AA AA ‘ | : 
LL HII SSSSSSSS | ; 
LL HII SSSSSSSS | ; 
LL 1] SS | ; 
LL I] SS : 
LL I] SS : 
LL 1] SS ; 
LL 1] SSSSSS | ; 
LL I] SSSSSS | ; 
LL 1] SS | ; 
LL I] ss : 
LL 1] SS | : 
LL 1] SS | ; 
LLLLLLLLLL §=sSIII) «= SSSSSSSS | ; 
LLLLLLLLLE §=—sTIIT) = SSSSSSSS | ; 
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MODULE PANPA ( : 
IDENT = 'V04-000' 
%BL1SS32C 


ADDRESSING_ MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 


)«= 
BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is pe SOFTWARE IS FURNISHED ee A LICENSE AND MAY BE USED AND gd a 
'* ONLY IN ACCORDANCE WITH THE a OF SUCH biCen SE AND WITH THE 
te IN aie OF THE ABOVE Sr raat tes OTVICE. THIS SOFTWARE OR ANY OTHER 


't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:s Compokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* 
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me 
* 
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® 
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® 
' « 
is TRANSFERRED : 
* 
® 
* 
* 
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® 
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Vee RARER AERA AREA AAA AAA AAA ATER e eee eeeeeeAeeee ee eeeee 
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i¢¢ 
! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: Processes the .PAGING and .NO PAGING commands 


‘ 
' 
\ 
' i 
' 
t 
' 
1 
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i ENVIRONMENT: Transportable 
i AUTHOR: R.W. Friday CREATION DATE: November, 1981 
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3 
yoe-000 Revision History 18-Sep-1984 93:89:83 TIER SVMGRASTERSCHUNOFe “SRCIPANPA.BLIG; (28 
XSBTTL "Revision History‘ 
; MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 
' 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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PORLPIPPIPIPYNINIPINININININI NI NINN 


Module Level Declarations 


TABLE OF CONTENTS: 


INCLUDE FILES: 


ARY 'NXPORT: XPORT* ; 
IRE ‘REQ:RNODEF'; 
D 


SRPLUS %THEN 
RY ‘REQ:DPLLIB'; 


LIBR 
REQU 
RIF 
Sher 
ELSE 
LIBRARY ‘REQ:DSRLIB'; 
2FI 
: 

MACROS: 


EQUATED SYMBOLS: 


i QWN STORAGE: 


1 
1 
i] 
' 
EXTERNAL REFERENCES: 
EXTERNAL 


seni ROUTINE 
FOOOUT, 
GCPAGE; 


CONAULS WN — O OONAUES WN 0 ODNAUES AR HOO ONOULS WN OO 
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ZSBITL ‘Module Level Declarations’ 


yEoseoct9pe 01:26:21 yaReHt, 


! XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 
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PANPA 16-Sep-1984 01:26:21 VAX-11 Bliss-32 V4.0-742 Pp 4 
th Rout ine PANPA ae HS en Set et Pe ot oe LS | L 


93 0 ZSBITL ‘Routine PANPA' 
4 1 GLOBAL ROUTINE PANPA (HANDLER_CODE) : NOVALUE = 
96 § lee 
¢ FUNCTIONAL DESCRIPTION: 
$ i See the ABSTRACT, above. | 
g i FORMAL PARAMETERS: 
? HANDLER_CODE indicates which command is to be processed. 
¢ i IMPLICIT INPUTS: None 
5 
6 


i ROUTINE VALUE: 
' COMPLETION CODES: None 


i SIDE EFFECTS: None | 


' 
' 
' 
' 
' 
' 
' 
' 
; IMPLICIT OUTPUTS: None 
' 
' 
' 
‘ 
J 
J 


BEGIN 
SELECT .HANDLER_CODE OF | 
SET 


CH_PAGING) : | 
BEGIN 


!If going from .NO PAGING mode to .PAGING mode, dump all the footnotes that 
'have been accumulated to this point. 

‘That's because in .NO PAGING mode, footnotes are merged together, and 
‘it's possible that the resulting merge has created such a large piece 
‘of text that it won't really fit on any page at all. So, the answer 
‘is to get rid of the problem right here and now. 

‘Note that dumping footnotes involves only calling FOOOUT, because the 
!.PAGING command does a .BREAK, and therefore all waiting footnotes 
‘have been turned into ready footnotes. 

4f gr Nn CRO PAGING 
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BEGIN : : 
IF NOT .PHAN_PAGING If paging not already in force 


RIPIPINININYINIPININNYNINPININPININYINININININIPYNPO PON NoPyNNy 


HEN 
pcurrenchy in .NO PAGING mode, and we really wili change to .PAGING. 


FOOOUT (.FNCT_COUNT); 
PHAN_PAGING =~.PHAN_CMD_PAGING ‘Turn on paging if not /NOPAGING. 


END; 
SCOASE () ‘Force a new page if appropriate. 


RETURN 
END; 
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[H_NO_PAGING) : 


; Routine Size: 


3 
asthe a 18-Sep-1984 01:26:21) VA 


77 BEGIN 
7 PHAN_PAGING = FALSE; 
7 RETURN 
80 END; 
0281 
8 § TES; 
0284 END; 'End of PANPA 
-TITLE PANPA 
-IDENT \V04-000\ 
-EXTRN FNCT, PHAN, FOOOUT 
EXTRN GCPAGE 
-PSECT S$CODE$,NOWRT,2 
000C 00000 »ENTRY PANPA, Save R2,R3 
53 00000000G EF 9E€ 00002 MOVAB PHAN+40, 
52 04 AC DO 00009 MOVL HANDLER_CODE, R2 
QOOCOOA9 =F 52 D1 00000 CMPL R2, #169 
2 if Boole BNEQ 
2A 04 AS €E 0016 BLBC PHAN+44, 3$ 
12 00 B83 EB OOOIA BLBS § aPHAN+40, 1$ 
00000000G EF DD OOO1E PUSHL FNCT 
00000000G_ EF 01 FB 00024 CALLS #1, FOOOUT 
00 B3 04 A3 dO 00028 MOVL PHAN+44, @PHAN+40 
00000000G_ EF 00 FB 000350 1$: CALLS #0, GCPAGE 
04 00037 RET 
00000097 + #8F 34 D1 00038 2$: CMPL R2, #151 
03 12 00035F BNEQ $ 
00 B3 D4 00041 CLRL @PHAN+40 
04 00044 3$: RET 
69 bytes, Routine Base: $CODE$ + 0000 
0285 1 
0286 1 END ‘End of module 
0287 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 


2 V4.0-742 Pa 
: CRUNOFF ..SRCJPANPA.BLI;1 


Be Se Se Se Be Se te Se Be Be Se Be Se Se Be Be 


69 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


lita tsa Senora mead Cease 9A: 


P. -1984 01:26: VAX-11 Bliss-32 V4.0-742 
v04-000 Routine PANPA 16- Sep-1 382 93:89:23 DISKSVMSMASTER: CRUNOFF.SRCJPANPA.BLI; Pz 
; ccoweese Symbol(s cooccose Pages Processing ; 
: File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 9 252 :00.1 : 
: 7$25SSDUA08: CRUNOFF .SRCIDSAL16.L32:1 1348 3 8 86 80:00:2 : 
COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PANPA/OBJ=OBJ$:PANPA MSRC$:PANPA/UPDATE=(CNH$:PANPA) : 
Size: 69 code_+ 0 data bytes 


3 Sleseed Time: 09:93. 
3 Lines/CPU Min: 778 
3 Lexemes/CPU-Min: 10832 
: ponety Used: 27 pages 
3 a 


; Compilation Complete 
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